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FOCAL- 12 

1.0 INTRODUCTION 

1.1 FOCAL- 12 

FOCAL-12 is an expansion of DEC's FOCAL (R) language designed to optimize 
use of the PDP-12 computer and its standard peripheral devices: LINC- 
tape, disks, VR12 display, A/D channels, KW12A real time clock, console 
switches and relays. Simple data acquisition and reduction tasks or 
the analysis of previously generated data may be easily and quickly 
programmed using FOCAL-12. 

1.2 Hardware Configuration 

The minimum system configuration for FOCAL-12 is a PDP-12B with 8K of 
core memory. Supported options include multiple LINCtape units, RS08 
or RK8 disks, 32 A/D channels and KW12A clock. 

1.3 Required Reading 

Before continuing with this supplement, the reader should be familiar 
with the basic FOCAL commands and programming fundamentals, as described 
in the FOCAL- 8 chapter of Programming Languages . Appendix A of this 
document presents the FOCAL-12 Command and Operation Summary (includ- 
ing FOCAL- 8) and lists those features of FOCAL- 8 not included in 
FOCAL-12. 

1.4 Loading FOCAL-12 

FOCAL-12 is loaded by the LAP6-DIAL-MS 2 system: 
+LO FOCAL-12,n \ 

where n is the unit containing FOCAL-12. FOCAL-12 prints an asterisk 

(R) 
(*) on the Teletype and can then be used just as FOCAL- 8 (with 

added features). FOCAL-12 expects a system tape on unit (or unit 10 

for disk) so that it can read in the system I/O routines when necessary. 



Specifically, DEC-0 8-AJAE-PB, FOCAL 1969, Version ZZM. 
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Some familiarity with DEC-12-SE2D-D, the LAP6-DIAL Manual, is assumed; 
however, the complete startup procedure is detailed in Appendix B. Here- 
after, in this document, LAP6-DIAL is referred to as DIAL. 



2.0 USING THE DISPLAY SCOPE 



2.1 FDIS 



The function FDIS is used for plotting points on the VR12 display scope. 
Its general format is 

SET H=FDIS(X,Y) 

where 0<X<1.39 and 0<Y<1.00. 

FDIS is most commonly used in conjunction with the FOR statement. For 
example, the program 

F 1=0,. 01,1. 39 ;S H=FDIS(I,.5) 

would plot a line of points across the middle of the display. FOCAL- 12 
can display about 950 points on the scope at a time. 

2.2 OUTPUT 

To further facilitate display usage, a command has been added to 
FOCAL- 12. Its forms are: 

Full Command Abbreviation 

OUTPUT SCOPE 
OUTPUT TELETYPE 
OUTPUT DELAY 
OUTPUT CLEAR 
OUTPUT ERASE 

2.2.1 OUTPUT SCOPE 

The O S command instructs FOCAL- 12 to divert all its "Teletype" output 
to the display scope, including the echoing of Teletype input, output 
from "TYPE" and "WRITE" commands, error messages, etc. 

When the scope is filled (32 lines or about 500 characters) , computa- 
tion is suspended and the display is maintained until the user types 
any key on the Teletype. 

1. If a line feed is typed, FOCAL-12 clears the display 
and continues computation, otherwise ignoring the 
character. The program 

1.01 O S 

1.02 F I=1,35;T 1,1 
GO 






S 





T 





D 





C 





E 



generates the display 



1.0000 
2.0000 



32.000 



Pressing line feed will clear the display and continue 
the computation until the scope again fills or, as in 
this case, the computation is completed. 

33.000 
34.000 
35.000 

If any character other than linefeed is typed, the 
scope is cleared, the character is accepted as legi- 
timate input, and computation continues. Thus, if 
the screen is filled while editing, the user need not 
make any special effort to clear it and continue. 



2.2.2 OUTPUT TELETYPE 

The T command merely negates the S command; thus, if typed output 
is being sent to the scope, an T command will cause subsequent typed 
output to be echoed on the Teletype. 

2.2.3 OUTPUT DELAY 

None of the commands presented thus far directly output to the display 
scope. Instead, the FDIS function builds up a buffer of display co- 
ordinates and the S command causes "typed" output to be sorted into 
another buffer. Whenever FOCAL-12 is not computing (e.g., waiting 
for Teletype input) it refreshes the display using the information from 
the buffers. Conversely, while FOCAL-12 is computing, the display is 
not refreshed and is blank. In the example from section 2.1 

F 1=0 ,.01,1. 39 ;S H=FDIS(I,.5) 

the screen would be blank until the completed buffer was ready; then 
the line would appear on the scope. 

The D command interrupts computation to refresh the display. Thus, 
if the example from section 2.1 is extended to read 



F 1=0, .01,1. 39;S H=FDIS (I , . 5) ;0 D 

the display will be refreshed as each point is added to the buffer so 
that the user will see the line being plotted across the scope (at the 
cost of a slight delay in computation) . 

2.2.4 OUTPUT CLEAR 

The display scope is cleared of all points and characters whenever the 
C command is executed. One very convenient use of this feature is 
during program preparation. If editing is done while an S command 
is in effect, the program on the display will contain rubouts , MODIFY 
lines, inserted lines, etc. The C command will clear the scope and 
a WRITE command can be given to display immediately the edited program 
with line numbers in order, MODIFY statements erased, etc. 

2.2.5 OUTPUT ERASE 

The E command clears the scope of all "typed" output, leaving any 
FDIS plots. 

In summary, then, the program 

1.01 F 1=0,-04,6.25; S A=FDIS ( . 5+ . 3*FSIN (I ) , . 5+. 3*FC0S (I ) ) 

1.02 S; T " A CIRCLE ";0 T 

1.03 F I=0,.01,1.39;S H=FDIS (I ,0) ;0 D 

1.04 T "FAST TOO" , ! 
GO 



will 

(1.01) compute sines and cosines for a short time; 

(1.02) display a circle on the scope with a label over it; 

(1.03) plot a line of points across the bottom of the scope, 
(a point at a time because of the "0 D" ) ; 

(1.04) then type "FAST TOO" (on the Teletype due to the 
"0 T" in 1.02) . 

3.0 DATA STORAGE AND RETRIEVAL 

As part of the data collection and reduction task, the typical user 
will collect data and store it on LINCtape or disk. FOCAL-12 can 
access such data either as named binary files under the DIAL system. 



To those familiar with DIAL formats, there is no "header" block. 



or by absolute block number addressing, where the location of the data 
is the user's responsibility. The data set may be in any of three 
data formats — signed integers, signed fractions, or floating point 
numbers. Once the file has been "opened" (refer to section 3.2), any ele- 
ment of the data array may be addressed as a standard subscripted vari- 
able and the actual tape or disk operations necessary to access the element 
will be automatically carried out by FOCAL-12. 

3.1 LIBRARY MAKE 

When a set of data is to be saved in a named file, the file must al- 
ready be defined in the DIAL filing system. If such a file does not 
already exist, it may be created by using the LIBRARY MAKE command 

L M, length, name, unit 

where length is the number of blocks required to hold the data ; name 
is the name to be assigned to the file for the DIAL index; and unit 
is the appropriate device unit number, as defined in DIAL-MS. 

Device Device Unit Numbers 

8 LINCtapes 0-7 

4 RS08 disks 10 - 17 

1st RK8 disk 10 - 15 

2nd RK8 disk 20 - 25 

3rd RK8 disk 30 - 35 

4th RK8 disk 40 - 45 

Thus 

L M, 19, DATA, 
would create a 19 block file on tape 0, naming it DATA. 

Note that the number of blocks can be specified by a variable. 

1.01 ASK "HOW MANY BLOCKS FOR DATA?" N 

1.02 L M,N,DATA,0 

This program will create a file, DATA, of N blocks where N is specified 
at run time. 

FOCAL-12 will not put two files of the same name on the same tape or 
disk. If the file name is already used, it will be deleted and the new 
file created. However, before deleting the existing file, FOCAL-12 
will display "REPLACE?" on the scope. To complete the operation, type 
"R"; striking any other key will cause FOCAL-12 to ignore the L M command. 



Each block in the file will contain 256 integers, 128 fractions, or 
85 floating point numbers (the last word of each block is unused with 
the floating point format) . 
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If a legal, but nonexistent device (i.e., in the above list but not 
physically present) is specified, "NO" is displayed on the scope. 
There is only one option available currently - type carriage return 
to return to DIAL. Any other character is ignored. 

This is actually a convenient procedure for returning to DIAL. How- 
ever, if the wrong key has been struck by accident and a useful in- 
direct program is in memory, the following procedure will recover it: 

1. Stop the computer. 

2. Set LSW to 0200 and the MODE switch to 8. 

3. Press I/O PRESET and START LS . 

4. If output to the scope was in effect at the time the 
computer was stopped, it will now be displayed in 
full size characters. Type "0 S" to correct to 
FOCAL-12's normal display. 

3.2 LIBRARY OPEN 

FOCAL-12 will at any one time process up to eight files of data stored 
on LINCtape or disk. The files are referenced using the variable names 
"F0" , "Fl" , . . . ,"F7". The standard subscripting methods apply: e.g., 
S F0(7)=0 will clear the eighth entry in file number 0. 
F 1=0,1000; T F7(I),! will type out the contents of the first 1001 
entries in file number 7. 

It is important to realize that these file number tags do not, of 
themselves, specify a particular variable on tape or disk: this associ- 
ation between a file number and a specific file name or location is 
supplied by means of the LIBRARY OPEN command. 

L 0,file number, format, name, unit 

where file number is "FJT, "Fl",..., or "F7"; 

format is "F" for Floating point format 
"S" for Signed fraction 
"I" for signed Integers 

name is the DIAL file name, or the starting block number 
written as # number, where number is any legitimate 
(i.e. , existing) starting block number (octal) ; 
unit is the device unit number. 



The function of the OPEN command is then to associate a file number, Fn, 
with a data array on tape or disk and to define the type of data. For 
example, 

L 0,F1,F,DATA,1 

declares an array of floating point numbers, in a file named DATA, on 
tape unit 1, is to be referred to as file number "Fl". Any piece of 
data in the array may now be accessed using the standard FOCAL subscript- 
ing procedure. The program 

1.01 L M,1,DATA,0 

1.02 L O,F2,I,DATA,0 

1.03 F I=0,255;S F2(I)=0 
GO 

creates a one block file named DATA on tape and clears the array of 
unsigned integers to zeros. This example 

1.01 L O,F2,I,#100,0 

1.02 F I=0,511;S F2(I)=0 
GO 

sets blocks 100 o and 101 o of tape unit to all zeros, 
o o 

3.3 LIBRARY CLOSE 

OPENed data files are CLOSEd with the LIBRARY CLOSE command 

L Cfilenumber 

This command causes FOCAL-12 to clean up any "unfinished" (see Appendix 
D for a more complete description) transfers for that file and to free 
the file number. All OPENed files should normally be CLOSEd at the end 
of a program to prevent succeeding programs from accidentally destroy- 
ing the file. 

For example, 

1.01 L M, 19, COPY, 1 

1.02 L 0,F1,F,C0PY,1 

1.03 L O,F2,F,ORIG,0 

1.04 F I=1,1200;S F1(I)=F2(I) 

1.05 L C,F1;L C,F2 

1.06 Q 
GO 



will create a file on unit 1 that is 19 blocks long called COPY, 
copy 1200 floating point numbers from file ORIG of LINCtape to 
LINCtape 1 file COPY, and QUIT after closing both files. 

To reassign a file number to another file requires only another L 
command; e.g. , 

1.01 L O,F2,I,FILEA,0 



All references to "F2" are executed as FILEA references by FOCAL-12, 



3.21 L 0,F2 



F,FILEB,10 



FILEA is CLOSEd and all references to "F2" are now executed as FILEB 
references on disk unit 0. 

Thus, a second L command to a particular file number will negate or 
"CLOSE" the first L command. 

4.0 FOCAL- 12 PROGRAM STORAGE 

4 . 1 LIBRARY SAVE 

FOCAL-12 programs may be saved on LINCtape or disk for later use. The 
LIBRARY SAVE command is used to store the current (just edited) FOCAL-12 
program. Its format is 

L S, name, unit 

where name is the binary file name to be inserted in the DIAL index 
and unit is device unit number. For example, 

L S,$NEWPRGM,7 

will save the program (text and variables) just typed as a binary file 
named $NEWPRGM on tape unit 7. Since the program is saved as a binary 
DIAL program, and listed as such in the DIAL index, it is suggested 
that FOCAL-12 programs be filed under some standard notation, such as 



Again, no "header" block. 



dollar sign for the first character. Note that a copy of the program 
just saved remains in core after an L S command and may be executed 
using the GO command. Finally, if a file with this name already exists 
on the device, the "REPLACE?" message is displayed: type "R" to com- 
plete the operation; type anything else to cancel the command. 

4.2 LIBRARY LOAD 

A FOCAL-12 program that has been saved by a LIBRARY SAVE command can 
be retrieved from the tape or disk by a LIBRARY LOAD command in the 
format 

L L, name, unit 

where name and unit are as previously described in section 4.1. For 
example, 

L L,$NEWPRGM,0 

will retrieve the program saved in the example in section 4.1 (assuming 
the tape had been put on tape transport 0) . Once loading is complete, 
FOCAL-12 prints an asterisk to indicate editing may continue or the 
program may be started. 

4.3 LIBRARY GO 

A FOCAL-12 program that has been saved by a LIBRARY SAVE command can 
be retrieved from a DIAL binary file on tape or disk and started auto- 
matically by a LIBRARY (load and) GO command in the format 

L G, name, unit 

where name and unit are as specified for LIBRARY LOAD. For example, 

L G,$NEWPRGM,0 

will not only load the program, $NEWPRGM, into memory but will start it 
automatically . 

Note that this feature can be used in conjunction with FOCAL-12 's data 
file handling to enable the operation of large programs by "segmenting" 
or "chaining". For example, one segment could set up an experiment, 
acquire data, store it into a file, and load and start a second segment 
using the LIBRARY GO command. 



1.05 L M, 10, DATA, 
1.10 L O,F0,I,DATA,0 



2.75 L G,$2NDSGMT,0 

The second segment could then process the data, put up a display of re- 
sults, etc., call a third segment,... 

The processing of the L G command requires the use of a portion of the 
display buffer; however, up to approximately 450 points may be retained. 
If the display is to be cleared, the second segment should merely start 
with an "O C" command. 

Note that files opened in one segment need not be opened in succeeding 
segments. Of course, the final segment should CLOSE any files still 
open. 

5.0 ANALOGUE INPUT AND TIMING 

5.1 Sampling 

FOCAL-12 can sample from 1 to 32 analog channels for digital conversion 
via the FADC command 

FADC(n) 

where n is the channel to be sampled. The voltage across the AD-12 
channel at the moment of sampling is the value recorded. Readings 
collected by this function can be placed in a data file for later 
analysis or can be processed immediately. For example, 

1.01 L O,F1,S,DATA,10 

1.02 F I=0,100;S F1(I)=FADC(3) 

1.03 F I=0,100;T F1(I) ,! 

1.04 L C,F1 

1.05 Q 

will take 101 samples from A/D channel 3, store the result in the previ- 
ously "made" file DATA on the first disk unit, type out the values and QUIT. 

5.2 Timing Using the OUTPUT INTERVAL Command 

The KW12A clock can be used by FOCAL-12 for user specified interval tim- 
ing, permitting a delay of known duration to elapse between events. 



1 Values from FADC range from -1.000 to .998 with a resolution of 2/1024V. 
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This interval is established by the O I command 
O l,n 

where n, which may be an expression, is the length of the interval in 
seconds, with .0l£n£40. 95. Thus, an interval of two seconds is speci- 
fied by 

1,2 

In this case, FOCAL-12 starts the clock so that it will "tic" at two 
second intervals. If an I command is now issued in the program with- 
out an argument, FOCAL-12 will delay the program until the next tic 
(up to 2 seconds) occurs, thereby synchronizing the program with the 
real time clock. 

The following program averages samples, taken once per second from A/D 
channel 1, for 20 seconds. 

1.01 O I,1;S A=0 

1.02 F I=1,20;S A=A+FADC (1) ;0 I 

1.03 T A/20,! 

1.04 Q 

6.0 DATA ACQUISITION USING FOCAL-12 

FOCAL-12 is not intended to be a replacement for the existing and/or 
planned data acquisition programs for the PDP-12. However, where low 
data rates are used, FOCAL-12 will facilitate the data acquisition task. 
Several methods are discussed in this section (all assume storing of 
the data into an "S" file of signed fractions). 

1. Storing in memory (£50 readings/sec ) 

2. Storing on LINCtape (£1.2 or >.7 sees/reading) 

3. Storing on disk (£20 readings/sec on RF08; <12 readings/sec 

on RK8) ~ 

4. Using $THRUF0 (single channel, £100 readings/sec to LINCtape) 

6 . 1 Memory 

Up to 256 readings may be acquired at a maximum rate of 50 per second 
using the OUTPUT INVERVAL command and the FADC function. The 257th 
reading will exceed the capacity of the memory buffer and require out- 
put to the auxiliary storage file. 
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6.2 LINCtape 

The 257th reading and every 12 8th reading thereafter requires a pause 
of 1.2 seconds to write and check the block on LINCtape. During this 
pause, there is no sampling so readings are lost. Therefore, the maxi- 
mum sustainable rate is 1.2 seconds per reading. 

The following procedure eliminates the checking feature on the tape 

write and reduces the pause time to .7 seconds. Note that this is a 

change to FOCAL-12 itself; i.e., all transfers to tape are made without 
error checking. Having started DIAL, 

+zeJ 

+AB FOCAL- 12, unit J 
+AS PATCH , uni tV 
-+SB FOCAL- 12, uni tj 

where "PATCH" is 

PMODE 

*3632 

5272 

*3672 

6211 

1302 

3703 

6201 

6212 

4667 

3651 

5235 

5243 

7640 

LISTAP -7 

6.3 Disk 

Again, the worst case is assumed as the limit. For the RS08, maximum 
access time limits maximum throughput to about 20 readings/second. For 
the RK8, the possibility of crossing a disk track boundary puts the 
maximum throughput rate at about 12 readings/second. 

6 . 4 $THRUF0 

This version of the user function, FX, (refer to section 7.0) has been 
implemented to facilitate single channel throughput to LINCtape at up 
to 100 readings/second. The overlay uses about half of the user space 
and is called (assuming FOCAL-12 has been loaded) by the command 

L L,$THRUF0,unit 
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F0 must be opened as a signed fraction file. 

L O,F0,S, name, unit 
or 

L O,F0,S,#dddd,unit 
The function is then initiated by the command 

S H=FX(channel , no. of samples, sync, rate) 

where 

channel specifies the analogue channel (0-31,-) from which 
samples are to be taken; " 

number of samples is limited by file size; 

sync specifies the device to initiate the data collection: 

0-5 for sense switches 0-5 
1,0-25,0 for sense lines 0-17 ; 

rate specifies the time between samples in seconds 
(.01-40.95) . 

The following sequence 

L L,$THRUF0,0 

1.01 L M,10,DATA,1 

1.02 L O,F0,S,DATA,1 

1.03 S A=FX(7,1200,15,.01) 

1.04 L L,$WORK,0 
L S,$GETDATA,0 

would save a FOCAL-12 program, which when operated would 

(1.01) create a file named DATA on tape unit 1 

(1.02) OPEN the file as F0 

(1.03) after the sync pulse from sense line 5, take 1200 
samples , from analogue channel 7 at a rate of 100 
samples/second and store them in file DATA 

(1.04) call a processing routine, $WORK. 

There are several possible error messages from $THRUF0: 

?17.31 F0 was not opened as an "S" file 

?17.53 The file size is insufficient for the number of samples 

718.03 Format error in specifying parameters 

718.05 Illegal sync device 
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7.0 IMPLEMENTATION OF USER FUNCTIONS (FNEW,FX,FZ) 

FOCAL-12 provides the traditional FOCAL capability for encoding user 
functions to satisfy those users with special requirements not covered 
by FOCAL-12. The FNTABF table has three entries - PFNEW, PFX, and 
PFZ - for this purpose. For internal specs, FOCAL-12 is equivalent 
to FOCAL- 8 and information obtained from DEC-08-AJAE-PB is valid except 
for addresses, which are presented in the tag table in section 7.4. 
For convenience, a summary is presented. 

7.1 SUMMARY 

Text Handling Subroutines 



GETC 
SORTC 



PRINTC 
READC 

SPNOR 
ERROR 

TESTN 



TESTC 



Get next character from the text; store into CHAR. 

Sort AC (if non-zero) or CHAR against LIST. 

Calling sequence: SORTC /call 

LIST-1 /address of LIST-1 

XXX /return if in LIST 

XXX /return if not in LIST 

NOTE: Lists are terminated by negative numbers. 

Print the AC; if the AC=0, print the contents of CHAR. 

Read and echo a character from the keyboard and put it 
into CHAR. 

Ignore spaces in text; exit with the first character 
that is not a space in CHAR. 

Transfer control to the command mode and terminate exe- 
cution; print error message. 

This subroutine is actually a series of SORTC s with 
various returns : 



CALL: TESTN 

re turn 1 
return2 
re turn 3 



/call 

/return if a period 

/return if not a period or a number 

/return if a number; SORTCN is set 

/to the binary equivalent. 



The routine tests only CHAR. AC must be 0. 

This subroutine is again a series of SORTC' s with various 
returns : 



CALL: TESTC 

returnl 

return2 
return3 
return 4 



/call 

/terminator; SORTCN set according 

/to TERMS 

/number; SORTCN sets as in TESTN 

/function; (CHAR=F) 

/alphabetic character 



Another excellent source of information is DECUS No. FOCAL-17; indeed, 
much of the information in this section is taken from that document. 
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SORTJ 



This subroutine is used as a multiple sort and branch 
subroutine. CHAR (or the AC if nonzero) is compared to 
a list. If it is in the list, an address is looked up 
and an effective JMP ADDRESS is executed. If a match 
is not in the list, then return is to CALL+3. 



CALL: SORTJ 

LIST1-1 
LIST2-LIST1 

RETURN 



/ADDRESS of character list 
/difference in the addresses 
/of lists 
/return here if not in LIST1 



PUSHA 

POPA 

PUSHF 



POPF 



Put the contents of the AC on the PDL; clear the AC. 

Get the top entry on the PDL and put it in the AC. 

This is essentially three PUSHA' s and is used for 
storage of floating point data. 

CALL: PUSHF 

ADRESS /address of first location of 

/three word floating point number 
The inverse of the PUSHF routine. 



PUSH J 



CALL: 



POPF 
ADDRESS 



/address of where to put data 



This is the recursive subroutine call. The subroutine 
return is put on the PDL and a JMP to the subroutine 
address is executed. 



POPJ 



CALL: 



PUSH J 

SUBROUTINE 

XXX 



/address of SUBROUTINE 

/address of this location is stored 

/on the PDL 



Recursive subroutine return; the top element of the PDL 
is used as the effective address of the return. 



Other Subroutines 



INTEGER = 



EFUN3I 



EVAL 



Enter via a JMS 1 INTEGER. This routine makes an integer 
out of the floating accumulator (FLAC) . The low order 
part is in FLAC+2 and in the accumulator; the high order 
part is in FLAC+1. 

This routine is the return from a function routine. It 
checks for a right parenthesis ()) in CHAR and normalizes 
the FLAC. Enter via a JMP I EFUN3I with the function re- 
sult, if any, in FLAC. 



This subroutine evaluates an arithmetic expression, 
it is recursive, it must be called via: 



Because 



PUSHJ 

EVAL 

XXX 



/return 



The subroutine return is to CALL+2 with the floating 
point value of the expression it evaluated in the FLAC. 
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Links to FOCAL 

The general form of a function is FUNC (ARG1 ,ARG2 , ). The function 

coding is entered via a SORTJ where the address is designated in the 
table : 





FNTABF= . 


/(374) in FOCAL-12 




XABS 


/address of FABS coding 




XSGN 


/FSGN 




XINT 


/etc. 




XDISP 






XRAN 






XADC 






ARTN 






FEXP 






FLOG 






FSIN 






FLOS 






XSQRT 




PFNEW 


', ERR0R5 




PFX, 


ERR0R5 




PFZ, 


ERR0R5 





To add a user coded function, put the entry point of the function cod- 
ing in the appropriate location in the above table. FOCAL-12 will then 
branch to that location after the function name is decoded, and ARG1 
is evaluated in the FLAC. To delete a function from the list, replace 
the current contents with 2725. 

When the function evaluation is complete, the answer must be left in 
the FLAC, and a JMP I EFUN3I executed. The EFUN3I routine will check 
to see if there is a right parenthesis in CHAR, and normalize the FLAC, 
before returning to the appropriate place in FOCAL-12. 

In general, user functions will use part of the text-variables storage 
area by changing location BOTTOM which contains the address of the last 
location to be used for storage - initially 4617. 

If BOTTOM is made to contain 4277, for example, then the user has from 
4300 through 4617 for storage of the function processor. The theoreti- 
cal limit for BOTTOM is 3216, however, this would not allow any user 
space for indirect statements. 

Note that if LINC mode coding is used, interrupts must be off. 

7.2 Example of User Implementation of FX 
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000 + 20 

0001 /OVERLAY FOR FOCAL- IP 

002 /MAKES "FX" RETURN THF. RIGHT SWITCHES 

0003 / 

004 / DIAL COMMANDS FOR USING 

0005 / 

0006 / 

0007 / ZF- 

0010 / AR F0CAL12*U 

001 i / AS OVERLAY* U 

001? / SB FOCLTFMP*U,P 

00 13 / LO FOCLTEMP*U 

00 14 / ERASE ALL 

00 15 / LI BR SAVE* SNULLPRG* U 

001 6 / 

00 17 / NOW YOU HAVE A NULL PROGRAM 

0020 / SAVED AS "SNULLPRG" WHICH WHEN 

00?1 / LOADED BY FOCAL- IP BRINGS IN THF 

00?? / OVERLAY OF "FX"=PIGHT SWITCHES 

00?3 / EG-IF SWITCHES STILL 7310COCTAL) 

00?4 / S A=FX(0)JT A TYPES 37R4. 0000C DEC) 

00P5 PMODE 

0?6 R0TT0M=35 

0027 FEXP=4620 

0030 FLAC=44 

0031 EFUN3I=136 

0032 PFZ=412 

0033 PFX=PFZ-1 

0034 PFNEW=PFZ-2 
03 5 / 

036 / 

0037 / 

0040 *BOTTOM 

0041 0035 4607 FX-1 

0042 *PFX 

0043 041 1 4610 FX 

0044 *FEXP-10 

0045 4610 7 60 4 FX* LAS 

0046 4611 3046 DCA FLAC+2 

0047 461? 3045 DCA ELAC+ 1 

0050 4613 121.6 TAD 027 

0051 4614 3044 DCA FLAC 

5? 4615 5536 JMP I EFUN3I 

0053 4616 0027 027* 27 

0054 / 

0055 LISTAP -7 

NO ERRORS 

BOTTOM 0035 

E FUN 3 I 0136 

FEXP 4620 

FLAG 0044 

FX 4610 

027 4616 

P FN E W 04 10 

PEX 04 11 

PFZ 04 12 
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7.3 Special Requirements for FOCAL- 12 

The FOCAL-12 facility of saving (L S) and/or loading (L L or L G) programs 
adds another dimension to the problem of processing user function over- 
lays in the storage area; e.g., on a given DIAL tape, program A might 
use overlay FX; programs B and C, no overlay; program D, FZ; etc. The 
solution chosen is to have any necessary overlay in memory when the pro- 
gram is typed in and saved with the L S command. FOCAL-12 will save 
the program as well as the overlay and will load both when the program 
is requested via the L L or L G commands. 

The remainder of this section explains how this is done with the above 
example and assumes a knowledge of DIAL on the part of the reader. 

Having started DIAL-MS , type 

1. -s-ZE^ 

Clears the binary working area. 

2. +AB FOCAL- 12, unit-* 

Adds FOCAL-12 to the binary working area. 

3. +AS OVERLAY, unit J 

Assembles the source for OVERLAY on unit, adding the 
binary to the FOCAL-12 binary in the binary working 
area. 

N.B. The LISTAP-7 instruction must be included 
in the source for the overlay in order to 
have the assembler add to the binary work- 
ing area, which already contains FOCAL-12. 

4. +SB FOCLTEMP,unit,P^ 

Saves a "temporary" version of FOCAL-12, which 
contains the user function, FX. 

5. -KLO FOCLTEMP,unit J 

Loads and starts FOCAL-12 with the overlay for FX. 

6. FOCAL-12 commands 
*E A 

FOCAL-12 clears storage of all but the overlay. 

7. *L S,$NULLPRG,unit-* 

You now have a null FOCAL-12 program saved on unit 
and named $NULPROG 1 . When loaded by FOCAL-12, it 
brings in the overlay for the FX function. The program 
requiring this function may now be typed in and saved 
via the L S command. Whenever it is recalled 



1 



The temporary program FOCLTEMP is no longer needed and may be deleted 
from unit using the -+DX,unit _^) function in DIAL. 
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via the L L of L G commands, the new function will 

also be loaded. For example, if the switches were 

still set to 731J2f 
o 



1.01 IF(FX(J8))2. 1,3. 1,4.1 



GO 



would transfer to line 2.1. 



On the other hand, programs not needing this function 
can be typed in without first calling $NULLPRG via the 
L L command and so would have the complete storage 
space available. 



7.4 FOCAL- 12 Tag Table. 
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A 0045 C140 2554 DATUM 7102 

ABSOL 6751 C144 6140 DATUMA 7252 

ABS0L2 6153 C200 0123 DCONP 6303 

ABS0L3 7375 C260 0113 DCONT 0471 

ABSOLV 5571 C3 5345 DCOUNT 6143 

AC1H 0041 C5 5341 DOUR 0004 

AC1L 0042 C7 5335 DEBGSW 0026 

ACMINS 6605 C9 5331 DECON 5627 

ADDR 0040 CALL-IN 7576 DECONV 5600 

ADONE 6673 CCR 0077 DECP 5533 

A F 4677 CDF 7000 DECR 5521 

ALFl 4760 CEX1 6506 DEJUMP 1306 

ALF2 4763 CEXP 6505 DELETE 4565 

ALF2 4755 CF 4705 DF 4710 

ALGN 6572 CFRS 0133 OGRP 0425 

ALIGN 6623 CFRSX 0137 DGRP1 0441 

ALIST 1370 CGET 1133 DIG 5543 

ALPHA 0016 CGETRE 1137 DIGIT 5713 

AMOUNT 6722 CGETX 2564 DIGITS 0006 

ARCALG 4732 CHAR 0066 DIV1 5754 

ARCRTN 5024 CHARTA 0200 DIV2 6757 

ARGNXT 1723 CHECK 1751 OIVDIV 1632 

ARTN 5000 CHFLAG 0147 DIVIDE 7150 

ASHFT 6665 CHIN 2157 DIVLUP 1635 

ASK 1200 CHRCNT 0006 DMDONE 7063 

ATLIST 1570 CHREND 0056 DMPSW 0100 

ATSW 0056 CHRLUP 0033 DMULT 7004 

AX IN 0010 CHRT 6133 DMULT4 7036 

AXOUT 0017 CLCU 7427 DNORM 7335 

B 0046 CLEAR 7672 DNUMBR 5714 

B1BLK 2130 CLF 0076 DO 0420 

B1FLG 2125 CLKFLG 2661 DOK 2113 

B1UNIT 2126 CNTR 0057 DONE 2131 

B2BLK 2134 COL 1253 DOONE 0463 

B2FLG 2131 COMBOT 0226 DOUBLE 0127 

B2UNIT 2132 COMBUF 0132 DPCVPT 6302 

BACK 5503 COMEIN 3140 DPN 6305 

BEGIN 3601 COMEOU 3206 DPT 6145 

BET1 4771 COMGO 1161 DSAVE 5640 

BET2 4774 COMLST 0774 DTST 5647 

BETA 0017 COMMEN 0614 DUBDIV 7261 

BETZ 4766 COMMON 1600 DUBLAD 5733 

BF 4702 COMSUB 1502 DV3 7267 

BLK2 0011 CON1 5037 E 0042 

BLOCK 2121 CRETLD 1551 ECALL 1601 

BOTTOM 0035 CRETST 2072 ECHOLS 1624 

BUFBEG 3216 CRLF 7505 EFOP 0056 

BUFFER 7470 CRUDDY 1155 EFUN 1743 

BUFR 0060 CSTAR 0225 EFUN2 1755 

BUFST 5531 D 0041 EFUN3 2021 

c 0047 D256 0002 EFUN3I 0136 

C100 0006 D85 0004 ELPAR 1764 
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END 0134 FILTAB 2135 FRST 3206 

ENDFI 6243 FINCR 1065 FRSTX 3214 

ENDLN 4556 FINDLN 4555 FSIN 5204 

ENDT 0135 FINDN 2250 FSSERR 5774 

ENREPL 1375 FINFIN 1137 FX1T 0000 

ENUM 1732 FINISH 2076 G101 3661 

EPAR 1710 FINKP 1133 G5772 3662 

EPAR2 1766 FINPUT 0131 G5773 3663 

ERASE 2206 F I NT 4407 G7200 3664 

ERG 2227 FISW 0052 G7773 3665 

ERL 2224 FIVHUN 7653 G7774 3666 

ERR2 2726 FIX 6724 G7775 3667 

ERRFIL 2571 FIXM 6753 G7776 3670 

ERR0R2 4566 FLAC 0044 G7777 3671 

ERR0R3 4566 FLAD 6510 GAMMA 0005 

ERR0R4 4566 FLAG1 5162 GBLOK 3655 

ERRDR5 2725 FLAG2 4725 GECALL 1463 

ERT 2216 FLAGJ 1076 GEND 2334 

ERV 2221 FLARG 2032 GERR 0340 

ERVX 2241 FLARGP 0125 GETl 2330 

ERXIT 1457 FLDV 7107 GET3 2345 

ESCA 2532 FLEX 6517 GETARG 1401 

ETERM 1647 FLGT 6471 GETC 4545 

ETERM1 1627 FLIMIT 1075 GETCX 1563 

ETERM2 1655 FLINTP 6200 GETLN 4554 

ETERMN 1644 FL.IST1 0577 GETRHS 1000 

EVAL 1613 FLIST2 0574 GETSGN 1045 

EX1 0040 FLMY 6565 GETVAR 1405 

EXIT 2646 FLOG 5040 GEXIT 0352 

EXIT1 5034 FLOP 1674 GFND1 1510 

EXIT2 5301 FLOUT 5556 GINC 0070 

EXIT3 7363 FLOUTP 6000 GLIST 1375 

EXITJ 2660 FLPT 6467 GO 5021 

EXP 0044 FLSU 6507 GONE 0232 

EXTR 2313 FLTONE 2405 GOODY 0045 

F 0043 FLTXR 0014 GOTO 0603 

FCONT 1101 FLTXR2 0015 GRPTST 0744 

FCOS 5177 FLTHER 2407 GS1 1435 

FCOUNT 5535 FM12 6142 GS2 1464 

FEND3 2267 FNEG 5163 GS3 1444 

FERROR 0177 FNOR 7000 GS4 1457 

FEXP 4620 FNTABF 0374 GSERCH 1424 

FEXT 0000 FNTABL 2167 GTEM 0021 

FFF 1522 FNUM 6311 GZERR 0362 

FG02 6011 FOR 1041 HINBUF 0037 

FG03 6027 FORHUN 7651 HISS 0150 

FG04 6034 FOUTPU 0130 HORD 0045 

FG05 6070 FPAC1 7474 133 2414 

FIGOl 6221 FPNT 6400 IBAR 0212 

FIG04 6261 FPRNT 5465 IECALL 1037 

FILERR 1354 FRETLD 1537 IF 1013 

FILSTR 1326 FRETST 2014 I Ft 1035 
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IF3 

IGNOR 

IGOTIT 

ILIST 

IN 

INBUF 

INCALL 

INDEV 

INDRCT 

INFIX 

INL 1ST 

INORM 

INPUT 

INPUTX 

INSUB 

INTEGE 

INTRPT 

IOBUF 

IPART 

IRETN 

ITABLE 

ITER1 

ITLOAD 

ITSAGO 

IT5FF 

ITSOK 

ITSSS 

ITSTOR 

ITSUU 

JUMP 

K5 

KINT 

LI 

L2 

L3 

L4 

LASTLN 

LASTOP 

LASTV 

LC 

LCHAIN 

LCLOSE 

LCON 

LDMILD 

LEFLAG 

LEFPUT 

LEPUT 

LERR 

LESUB2 

LESUBS 

LG 

LG2E 



1025 
0217 
1036 
0771 
5513 
0034 
2071 
0064 
6465 
2401 
0570 
6307 
0756 
0271 
0036 
0053 
2603 
3120 
1040 
0227 
6575 
7470 
1533 
1736 
1450 
7521 
1451 
2000 
14 52 
6464 
5525 
2625 
5126 
5131 
5134 
5137 
0025 
0055 
0031 
5171 
1202 
1520 
0371 
1160 
1462 
0172 
6163 
6357 
0170 
0173 
6375 
4713 



LGO 

LINEMO 

LIST3 

LIST6 

LIST7 

LISTGO 

LL 

LLENGT 

LLIST 

LLOAD 

LM 

LMAKE 

LNAME 

LNUM 

10 

L0AD5T 

LOADJ 

L0G2 

L0G5 

L 0.G.6 

L0G7 

LOGS 

LOOP01 

LOPEN 

LORD 

LOSS 

LPRTST 

LS 

LSAVE 

LSBLK 

LTAPE 

LUKUP 

LWETMP 

LXIT 

M100 

M10PT 

Mil 

M12 

M137 

M140 

M144 

M2 

M20 

M240 

M260 

M272 

M4 

M40 

M43 

M5 

M77 

MBREAK 



6360 
0067 
0077 
0072 
0074 
1366 
5173 
1327 
6366 
1203 
2572 
1402 
1172 
1171 
5167 
6333 
1304 
5157 
5142 
5145 
5150 
5153 
6433 
1431 
0046 
0151 
2037 
6176 
1233 
1324 
6346 
1342 
0002 
1416 
0101 
6147 
0121 
2413 
2357 
2556 
6137 
0111 
0105 
0114 
1534 
1544 
6141 
2356 
1077 
0120 
0103 
2602 



MCOm 

MCR 

MD 

MEG 

MF 

MFLT 

MHUNOR 

MIF 

MINCMA 

MINCOM 

MINE 

MINSKI 

MINUS2 

MINUSA 

MINUSE 

MINUSZ 

MLDBLK 

MLIMIT 

MMCOM 

MOD 

MODIFY 

MOO 

MOOEND 

MOOLUP 

MORNUM 

MOVMOV 

MP1 

MP2 

MP3 

MP4 

MP5 

MP6 

MPER 

MPLUS 

MSPACE 

MULDIV 

MULT 

MULT10 

MULT2 

MULTY 

MVCNT 

MVCTR 

MVPTR 

MYAC1 

MYAC2 

MYAC3 

MYTEMP 

MYTMP2 

NAGSW 

NCHARS 

NCOLS 

NEGP 



1136 
0116 
5526 
1135 
0602 
0117 
5375 
7260 
1400 
6374 
5662 
0051 
7153 
0112 
6301 
5663 
1165 
7647 
7656 
5214 
1254 
1262 
1275 
1266 
1056 
1305 
7254 
7256 
7255 
7200 
7253 
7210 
0115 
5664 
5665 
7101 
6570 
5667 
5715 
4752 
1323 
1200 
1201 
0164 
0165 
0166 
0156 
0157 
0065 
7566 
7564 
4724 
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NFEEDS 

NLINES 

NOASCI 

NOCLK 

NOCRLF 

N H A N G 

NORF 

NORM 

NORMF 

NORMLE 

NQTSAV 

NOX 

MOX1 

N0X2 

NUMSGN 

01 

010 

012 

015 

0200 

0215 

027 

0360 

037 

04377 

04600 

056 

06000 

06377 

07 

07000 

07400 

07420 

07453 

07472 

07506 

07510 

07524 

07566 

0760 

07655 

077 

07710 

07716 

07761 

07763 

07764 

07770 

07774 

OC 

OCTNUM 

OD 



7565 
7561 
0061 
2653 
7510 
7556 
6515 
6571 
7147 
2031 
1314 
6675 
6711 
6704 
1061 
3600 
1123 
1545 
1434 
0003 
1157 
1565 
0007 
1360 
0076 
5374 
1156 
0173 
7570 
1776 
7415 
7650 
0174 
1426 
1501 
1427 
1424 
1154 
7572 
0015 
7571 
1124 
1125 
7573 
1155 
7567 
0172 
1126 
1127 
7752 
1101 
7761 



ODISSP 

OE 

OERROR 

OEXIT 

OGO 

01 

OUST 

0M12 

ONE 

0010 

0012 

002 

006377 

OP 

OPMINS 

OPNEXT 

OPTABL 

OPTR 

OPTR0 

OPTRI 

OPTRO 

OPUT 

OS 

OSAMP 

OT 

OUT 

OUTA 

OUTCR 

OUTDEV 

OUTDG 

OUTPUT 

OUTX 

OVERl 

0VER2 

P 

P13 

P17 

P177 

P1FLAC 

P2000 

P27 

P277 

P2FLAC 

P3 

P337 

P377 

P3FLAC 

P40 

P4000 

P43 

P5LNAM 

P6L.NAM 



7704 
7753 
7713 
7731 
7714 
7734 
7722 
5530 
4716 
1425 
1430 
1456 
7730 
3115 
6567 
1622 
1731 
6002 
2663 
2665 
2664 
5532 
7763 
1357 
7771 
2465 
5536 
2476 
0063 
6154 
7706 
2475 
0043 
0047 
0000 
0005 
0107 
0106 
0167 
0373 
6750 
0110 
0170 
2036 
0075 
2553 
0171 
2552 
0124 
6310 
0145 
0146 



P7200 

P7600 

P77 

P7700 

P7740 

PA1 

PACBUF 

PACKC 

PACKST 

PACX 

PALG 

PARTES 

PASS 

PB1FLG 

PC 

PCI 

PCHAR 

PCHECK 

PCHK 

PCK1 

PCLEAR 

PCLKFL 

PCOMMO 

PD2 

PD3 

PDLXR 

PECALL 

PEO 

PER 

PFILTA 

PF INI S 

PFNEW 

PFNUM 

PFX 

PF2 

PGETC 

PGETRH 

PI 

PI2 

PIOT 

PLCE 

PLOMIL 

PLEFLA 

PLESUB 

PLLP1 

PLLP2 

PLLP3 

PLLP4 

PLNAME 

PLNUM 

PLOOKU 

PNCHAR 



1402 
0104 
0122 
0101 
0372 
2524 
2502 
4546 
0027 
2530 
5260 
2051 
6335 
0163 
0022 
0614 
1401 
5244 
0510 
2535 
0175 
7745 
0154 
0534 
0554 
0013 
6334 
6135 
0102 
0152 
0160 
0410 
1771 
0411 
0412 
1422 
0143 
5311 
5036 
5315 
5536 
0144 
1075 
0101 
1006 
1016 
1044 
1102 
1122 
0142 
0153 
7732 
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PNCOLS 7776 RESOLV 7173 SRETST 2024 

PNFEED 7777 RET 5452 SRNLST 1361 

POPA 1413 RETRN 1563 START 0177 

POPF 4544 RETURN 5536 STARTL 5064 

POPJ 5541 REVIT 7146 STARTV 0060 

POPTR 7733 RHSERR 1130 STEMP 7750 

PP43 1100 RITEOU 3651 STEMP2 7751 

PPASS 7705 RND2 5527 STOKOK 2044 

PPROC 1421 ROOTGO 7461 STOOBG 2051 

PPTEN 6144 ROT 2557 STORIT 6175 

PPTR 7574 ROUND 6151 SUBR 0102 

PREDIV 1622 RTL6 4557 SUBS 0171 

PREPLA 0155 RUB1 3004 SUBS2 0167 

PRHSER 1423 RUB2 3042 SWITCH 0161 

PRINTC 4551 RUB3 30-30 5WTMP 0162 

PRNT 2442 RUB4 3037 T 0000 

PRNT2 3114 RUB5 3041 Tl 0032 

PRNTI 6132 RUBIT 2555 T12 3611 

PRNTLN 4553 SADR 6150 T2 0071 

PROC 0611 SAMEN 1372 T3 0033 

PROCE'S 0610 SAVAC 2600 TABLE 6466 

PSCOPO 7775 SAVE 3751 TAG1 6723 

PSETCL 7746 SAVLK 2601 TASK 1202 

PSIN 0165 S-BAR 1300 TASK4 1250 

PSTART 1322 SCHAR 1271 TCRLF 1246 

PSUBS 0100 SCONT 1266 TCRLF2 1243 

PT1 0030 SCOPOU 7500 TOUMP 3052 

PTBL 1330 SCOUNT 5534 TELSW 0016 

PTCH 0126 SETCLK 5351 TEM 5156 

PTEN 6275 SETT 1041 TEMP 4726 

PTEST 1462 SEX 1336 TEN 6271 

PUSHA 4542 SEXC 0? 4 TENPT 6152 

PUSHF 4543 SFOUND 1304 TERMS 1772 

PUSHJ 4540 SGOT 1310 TEST2 6736 

PWAIT 0174 SIGN 7124 TEST4 7366 

PXOUTL 7774 SIGNF 0050 TESTA 0322 

QADD 0061 SIN 2662 TESTC 4564 

R6 5441 SMIN 6136 TESTN 4561 

RANMUL 6160 SMP 6101 TEXTP 0017 

RANO 1142 SMSP 6134 TGO 5400 

RAR1 6573 SORTB 1312 THIR 7257 

RAR2 6574 SORTC 4550 THISLN 0023 

RDIV 0152 SORTCN 0054 THISOP 0024 

READC 4552 SORTJ 4547 TINTR 1236 

RECOVR 2740 SPECIA 6777 TLIST 1376 

RECOVX 2761 SPLAT 3051 TLIST2 1532 

REMAIN 5712 SPNOR 4560 TLIST3 2377 

REPLAC 1361 SPTR 7671 TQUOT 1227 

REPT 6146 SQCON1 7467 TRAD 6575 

RESOL 6752 SQEND 7465 TSTGRP 4563 

RES0L3 7376 SRETLD 1541 TSTLPR 4562 

RES0L5 6304 SRETN 0261 TWO 4721 
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TWOPI 

TYPE 

TYPE2 

URETLD 

URETST 

UTE 

UTQ 

UTRA 

UTX 

U2ERST 

VAL 

WAIT 

WAITER 

WAITLP 

WALL 

WEXIT 

WORDS 

WRITE 

WTEST2 

WTESTG 

WX 

X 

XI 

X2 

X7774 

X7775 

XABS 

XAOC 

XCT 

XCTIN 

XDELET 

XDISP 

XENDLN 

XFIND 

XGETLN 

XGETOU 

XI33 

XIN 

XINPUT 

XINT 

XLC 

XLG 

XLL 

XLO 

XLS 

XOUTL 

XPOPJ 

XPRNT 

XPUSHA 

XPUSHJ 

XQ 

XR1 



5305 
1201 
1223 
1546 
2066 
2276 
2305 
2274 
2316 
2064 
0032 
7657 
0020 
0115 
0664 
0072 
0003 
0635 
0653 
0667 
0673 
5321 
5035 
4675 
0140 
0141 
2016 
1341 
0020 
0062 
2064 
7602 
2360 
2244 
0302 
1254 
2666 
6306 
5666 
1156 
0130 
0136 
0132 
0126 
0134 
2676 
1565 
2425 
0477 
0521 
0001 
0010 



XRAN 

XRAR2 

XRT 

XRT2 

XRTL6 

XSGN 

XSORTC 

XSPNOR 

XSQ2 

XSOR 

XSORT 

XT3 

XTESTC 

XTESTN 

XYH 

Y 

ZERO 



1145 
7365 
0011 
0012 
0413 
2012 
0721 
1535 
4676 
5325 
7400 
0717 
0700 
1546 
2451 
0077 
6522 
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A.l Commands 



Command 
ASK 

COMMENT 
DO 



ERASE 



FOR 



GO 



IF 



Form 

A "X,Y,Z" X,Y,Z 

C 

D 4.1 

D 4. 

E 

E 2.0 

E 2.1 

E A 

F I=x,y , z; command (s) 

F I=x, z; command (s) 



G 3.4 



G ? 



IF (X)Ln,Ln,Ln 



APPENDIX A 
COMMAND AND OPERATION SUMMARY 



Explanation 



Types "X,Y,Z" and then a colon for 
each variable; the user types a value 
to define each variable. 

Ignores any line beginning with C. 

Executes line 4.1; returns to com- 
mand following DO command. 

Executes all group 4 lines, or until 
a RETURN is encountered; returns to 
command following DO command. 

Erases the symbol table. 

Erases all group 2 lines. 

Deletes line 2.1. 

Deletes all user input. 

Executes the command for all values 
of I where x is the initial value, 
y is the increment to be added to x, 
and z is the limiting value for I. 

If y is not specified, an increment 
of 1 is assumed. 

Starts indirect program at lowest 
numbered line. 

Starts indirect program (transfers 
control to line 3.4). 

Starts at lowest numbered line and 
traces entire indirect program un- 
til another ? is encountered, or 
until an error is encountered, or 
until completion of program. 

Where X is a defined identifier, a 
value, or an expression followed by 
up to three line numbers. 

If X is less than zero, control is 
transferred to the first line number. 

If X is equal to zero, control is trans- 
ferred to the second line number if 
present; otherwise to the next command. 



Short form is presented. Of course, the complete spelling of each com- 
mand may be used to improve readability. 
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Command 



Form 



Explanation 



If X is greater than zero, control is 
transferred to the third line number, if 
present; otherwise to the next command. 



LIBRARY CLOSE 



LIBRARY GO 



LIBRARY LOAD 



LIBRARY MAKE 



LIBRARY OPEN 



L C,Fn 

L G, name, unit 

L L, name, unit 



Closes active file number (Fj3, 
Fl, . . . , or F7). 

Loads and starts program name from 
unit . 

Loads program name from unit and re- 
turns control to the user. 



L M, length, name , unit 

Creates a file of length blocks with 
this name on unit . 

L 0,Fn, format, name, unit 

Declares that file name on unit is to 
be referenced as Fn (F0,F1,..., or F7) ; 
data is to be interpreted as format 
(Signed Fractions, Signed Integers , 
or Floating Point) . 



MODIFY 



M 1.15 



OUTPUT CLEAR C 
OUTPUT DELAY D 

OUTPUT ERASE E 



OUTPUT INTERVAL 



I,n 



I 



OUTPUT SCOPE S 



OUTPUT TELETYPE 



T 



QUIT 


Q 


RETURN 


R 


SET 


S A*5/B*C 



Enables editing of any character on 
line 1.15 (refer to section A. 3. 2), 

Erases everything from scope. 

Delays computation to refresh the 
display scope. 

Erases typed output from the dis- 
play scope, leaving FDIS output. 



Starts the clock "tic"ing every n 
seconds ( .01<n£40. 95) . 

Delays computation until the next 
clock tic. 

Places all subsequent typed output 
on scope. 



Places all subsequent typed output 
on Teletype. 

Returns control to the user. 

Terminates DO subroutines, returning 
to the original sequence. 

Sets the variable, A, equal to the 
value of the expression to the right 
of the equal sign. 
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Command 



Form 



Explanation 



TYPE 



WRITE 



T A+B-C 

T A-B,C/E 

T "TEXT STRING" 

W 
W A 

W 1.0 

W 1.1 



Evaluates expression and types out 
result in current output format 
(refer to section A. 3.1). 

Computes and types value of each ex- 
pression separated by commas. 

Types the text enclosed in the quotes, 
May be followed by ! to generate car- 
riage return-line feed. 

Types out the entire indirect pro- 
gram. 

Types out all group 1 lines. 

Types out line 1.1 



A. 2 Functions 



Square Root 



FSQT(x) 



Absolute Value FABS (x) 
Sign Part FSGN(x) 

Integer Part FITR(x) 



Random Number 
Generation 

Exponential 
Function (e ) 

Sine 

Cosine 

Arc Tangent 

Logarithm 

Analog- to- 
Digital 

Display 



FRAN(x) 

FEXP(x) 
FSIN(x) 
FCOS(x) 
FATN(x) 
FLOG(x) 

FADC(n) 

FDIS (x,y) 



Where x is a positive number or ex- 
pression greater than zero. 

FOCAL-12 ignores the sign of X. 

Evaluates the sign part only, with 
1.0000 as integer. 

Operates on the integer part of x, 
ignoring any fractional part. 



Generates a random number. 

Generates e to the power x (2.71828 ). 
Generates the sine of x radians. 
Generates the cosine of x radians. 
Generates the arc tangent of x radians, 
Generates the log (x) . 

Reads analog-to-digital channel n 
and records the value. 

Displays the X,Y point on the dis- 
play scope. 



User Functions FNEW 
FX 
FZ 



User defined 
machine language 
subroutines. 
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A. 3 FOCAL OPERATIONS 

A. 3.1 Format 

To set output format, TYPE % x.y where x is the total number of digits, 

and y is the number of digits to the 
right of the decimal point. 

TYPE % resets output format to floating 
point. 

To type symbol table, TYPE $ other statements may now follow on 

this line. 

A. 3. 2 MODIFY Operations 

After a MODIFY command, the user types a search character, and FOCAL-12 
types out the contents of that line until the search character is typed. 
The user may then perform any of the following operations. 

a. Type in new characters. FOCAL-12 will add these to 
the line at the point of insertion. 

b. Type a CTRL/L. FOCAL-12 will proceed to the next 
occurrence of the search character. 

c. Type a CTRL/BELL. After this, the user may change 
the search character. 

d. Type RUBOUT. This deletes characters to the left, 
one character for each time the user strikes the 
RUBOUT key. 

e. Type ■*-. Deletes the line over to the left margin 
but not the line number. 

f. Type RETURN. Terminates the line, deleting charac- 
ters over to the right margin. 

g. Type LINE FEED. Saves the remainder of the line 
from the point at which LINE FEED is typed over to 
the right margin. 

A. 3. 3 The Trace Feature 

Special Example 

Character of Form Explanation 



?...? Those parts of the program enclosed in ques- 
tion marks will be printed out as they are 
or executed. 

?... If only one ? is inserted, the trace feature 

becomes operative, and the program is printed 
out from that point until another ? is en- 
countered, until an error is encountered, or 
until program completion. 
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A. 3. 4 Special Characters 

1. Mathematical Operators (in order of precedence) 



t Exponentiation 

* Multiplication 

/ Division 

+ Addition ""^^ Same 

Subtraction -"""""^ priority 



Control Characters 



% Output format delimiter 

! Carriage return and line feed 

# Carriage return 

$ Type symbol table contents 

( ) Parentheses 

[ ] Square brackets (mathematics) 

< > Angle brackets 

" " Quotation marks (text string) 

? ? Question marks (trace feature) 



3 . Terminators: 

S^E J^y (names) \> (nonprinting) 

RETURN key (names) ^* * 

ALT MODE key (with ASK statement) 

, Comma (expressions) 

; Semicolon (commands and statements) 

A. 4 FOCAL- 8 Features not in FOCAL- 12 

1. There is no initial dialogue? the mathematical functions are retained. 

2. The CLINE overlay is not included. FDIS provides the display 
function. 

3. The PLOTR routine can be reorigined, reassembled and added if 
necessary. 

4. The 4W0RD, 8K, LIBRA, GRAPH and QUAD overlays do not apply to 
FOCAL- 12. 

5. The TYPE command does not type an "=" before typing the value. 

6. FOCAL-12 does not support the high speed paper tape reader. 
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APPENDIX B 
COMPLETE STARTUP PROCEDURE 



1. Mount the FOCAL-12 tape on tape drive in REMOTE and WRITE ENABLE. 

2. Set the switches to 0701 and 7310 

4-4-4- 444 + + 4 4-4-4 4 + 4 4-44 + + 4- 4-44 

3. Depress I/O PRESET and DO. 

4. When the tape stops, press START 20. 

5. When the DIAL display appears, type 

-+■ is LINE FEED 
-+EX A where 

•*• ^ is RETURN 

6. When the computer halts, press CONT. 

7. Type +L0 FOCAL-12, 0^ 

The above procedure will always work, though it is really necessary 
only the first time the DIAL tape is run on that configuration. There- 
after, step 2 can be changed to: 

2. Set the switches to 0701 and 7300 

444- 4-4-+ 444 +1-4 444 +44 4 + 4 444 
and steps 5 and 6 may be omitted. 
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APPENDIX C 
DATA FORMAT SPECIFICATION 

1. "F" is the standard FOCAL-8 floating point format 1 , providing 
6 digit accuracy 2 with absolute value being or any value be- 
tween 10-615 and ]_0+615. 

2. "S" provides signed fraction with 6 digit accuracy 2 , with absolute 
value between 0.0 and 1.0 including 0.0. 

3. "I" provides for integer values between -2048 and +2047, inclusive. 
-2048 follows 2047 and vice versa. 

4. In "I" and "S" formats not all possible values can be stored in 
the desired format: in "S" format, numbers outside the range 
are given the minimum or maximum values; in "I" format, numbers 
are integerized and stored as noted above. 



Consider the following examples. 



a) 1.01 L O,F1,I,DEMO,0 

1.02 S Fl(0)=2050; T Fl(0), 
GO 



would type -2046, 



b) 1.01 L O,F1,I,DEMO,0 

1.02 S F1(0)=-2049«T F1(0) ,: 

GO ' 



would type 2047.0000 



c) 1.01 L O / F1,S,DEMO,0 

1.03 S F1(0)=6.0E20; T Fl (0) , ! 
GO 



would type 1.0000 (stored as .999999 8) 

d) 1.01 L O,F1,S,DEMO,0 

1.03 S F1(0)=-7.0E20; T F1(0),: 

GO 

would type -1.0000 (stored as -.9999998) 



Indeed, the FOCAL-8 floating point package is used; problems such as 
exponent overflow remain. 
2 

Actually, 6.8 digit accuracy. 
3 

The I value stored formally is: I '=[ (I+2048)mod 4096]-2048. 
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APPENDIX D 
FOCAL- 12 I/O AND THE L C COMMAND 



FOCAL-12 does not actually update the file on tape or disk each time a 
reference to the file is made (indeed, performance would be intolerably 
slow if it did). In general, the last two blocks referenced by the 
program are maintained in memory. For example, the program 

1.01 L O,F0,F,DATA1,0 

1.02 L 0,F1,F,DATA2,1 

1.03 L 0,F2,F,DATA3,2 

1.04 F 1=0,100; S F0(I)=I 

1.05 F 1=0,100; S Fl(I)=I/2 

1.06 F 1=0,100; S F2(I)=I/4 

would, at this point, have set the first 100 entries of DATA1 and DATA2 
on tape but would not yet have updated file DATA3 on tape 2. These two 
blocks are still in core memory. The advantage here is that, for line 
1.06, FOCAL-12 has executed tape operations only for 1=0 and 1=85. For 
all other references to F2 , the required tape block image was already in 
memory. If the next line in the program were 1.07 S A=F2(1); S B=F2(150) 
there would be no tape operation required since the image of the first 
two blocks of DATA3 are still in core memory. This presents no problem 
to the user as long as FOCAL-12 is operating and tape 2 is not dis- 
mounted. At the end of the program, he merely CLOSES the OPEN files. 
Further file references, not to the first 170 entries of DATA3 , would 
cause these tape block images to be written on tape 2 to make room for 
the new tape block images, etc. 
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APPENDIX E 
MISCELLANEOUS COMMENTS 



1) Starting Block Number 

The standard procedure for defining the starting block number is via 
the LIBRARY OPEN command; e.g. 

1.01 L O,F0,S, #100,0 

1.02 F 1=0,1,100; S F0(I)=... 

It is sometimes desirable to define this starting block number at the 
time the program is run. To do this 

1.01 L O,F0,S,#0,0 

1.02 A "STARTING BLOCK?" N 

1.03 F 1=0,1,100; S F0 ( 128*N+1) =. . . 

Thus, if the operator typed in "10" when starting block was asked, the 
base index for F0 would be 1280 numbers or 2560 words of 10 blocks, so 
that effectively the file starts at block 10. Note that the L command 
specifies block number in octal while the response to the ASK statement 
is interpreted as decimal. 

2) Deletion of EXP, ARCTAN, LOG 

For those users who do not need the above functions, the following patch 
can be used to delete them from FOCAL-12, increasing the user space by 
almost 30%. Using LAP 6- DIAL-MS 

-*ZE^ 

->AB FOCAL- 12, unit^> 

+AS PATCH, unit-*' 

->SB NEWFOCAL,unit,P.J 

where "PATCH" is 

PMODE 

*35 

5166 

*402 

2725 

2725 

2725 

FIELD 1 

*1225 

1067 

*1247 
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1173 
*1323 
6017 
LISTAP 



Note that this makes a new FOCAL- 121 Programs saved under the standard 
FOCAL-12 will not load under this version and vice versa. 
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APPENDIX F 
FOCAL-12 ERROR DIAGNOSTICS* 



Code Meaning 

?00.00 Manual start given from console. 

701.00 Interrupt from keyboard via CTRL/C. 

?01.40 Illegal step or line number used. 

701.78 Group number is too large. 

701.96 Double periods found in a line number. 

701. :4 Group zero is an illegal line number. 

701. :5 Line number is too large. 

702.32 Nonexistent group referenced by 'DO'. 

702.52 Nonexistent line referenced by 'DO 1 . 

702.79 Storage was filled by push-down list. 
703.05 Nonexistent line used after 'GOTO' or 'IF'. 
703.28 Illegal command used. 

704.39 Left of "=" in error in 'FOR' or 'SET'. 

704.52 Excess right terminators encountered. 

704.60 Illegal terminator in 'FOR' command. 

705.46 Bad argument to 'MODIFY'. 

706.03 Illegal use of function or number. 

706.57 Storage is filled by variables. 

707.22 Operator missing in expression or double 'E'. 

707.3 8 No operator used before parenthesis. 

707., -0 No argument given after function call. 

707., -7 Illegal function name or double operators. 

708.49 Parentheses do not match. 

709.13 Bad argument in 'ERASE'. 

710. <1 Error in DIAL file reference; name not found or no room left 
on unit. 

710. :5 Storage was filled by text. 

711.3 5 Input buffer has overflowed. 

720.34 Logarithm of zero requested. 

720.36 Log of a negative number requested. 

723. <4 Subscript error in file reference or undefined file number or 
reference. 

7 23.3 6 Literal number is too large. 

725.81 File number not OPENed. 

725. ;1 Syntax error on LIBRARY command. 

726. :1 Exponent overflow. Too many FDIS points. 

728.73 Division by zero requested. 

730.05 Imaginary square root required. 

731.12 Missing argument in display command. 

7 31.23 Too many FDIS points. 

7 31.75 Syntax error on OUTPUT command. 

731. <7 Illegal character, unavailable command, or unavailable func- 
tion used. 



*For FOCAL-12 only. 
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